home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / exitFrameScripts_43.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  635 b   |  29 lines
  1. property done
  2.  
  3. on prepareFrame me
  4.   global gConMan
  5.   if seenIntro(gConMan, #doors) then
  6.     sendAllSprites(#sendToolBarCoverAway)
  7.     go(the frame + 1)
  8.   end if
  9. end
  10.  
  11. on exitFrame me
  12.   global gConMan, gToolBarTextMan
  13.   if seenIntro(gConMan, #doors) then
  14.     go(the frame + 1)
  15.   else
  16.     if not done then
  17.       sendAllSprites(#sendToolBarCoverAway)
  18.       sendAllSprites(#bringResourceButtonsForward)
  19.       if houseHasWindows(gConMan) then
  20.         setToolBarText(gToolBarTextMan, "bm_PreDoors")
  21.       else
  22.         setToolBarText(gToolBarTextMan, "bm_PreDoorsNoWindows")
  23.       end if
  24.       done = 1
  25.     end if
  26.   end if
  27.   go(the frame)
  28. end
  29.